home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / lad.print shop (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  649b  |  23 lines
  1. 10 rem epson-lader fuer print-shop
  2. 20 rem und mps-1000 parallel
  3. 30 rem von r.lagarde
  4. 40 rem dip-schalter 1.1 on
  5. 50 rem ----------------------------
  6. 60 poke53281,15:poke53280,15
  7. 70 goto170
  8. 80 poke53281,9:poke53280,9
  9. 90 printtab(11)"bitte eine taste!":poke198,0:wait203,63
  10. 100 open4,4:print#4,chr$(27)"1":close4
  11. 110 rem --------------------------------
  12. 120 rem ------ print-shop laden --------
  13. 130 ifa=0thena=1:load"print shop",8,1
  14. 140 run
  15. 150 rem --------------------------------
  16. 160 rem ------ device not present ------
  17. 170 print"[147]":open4,4:print#4
  18. 180 ifpeek(144)<>128thenclose4:goto80
  19. 190 printtab(5)"bitte den drucker einschalten[154]"
  20. 200 printtab(4)"und mit pfeil links bestaetigen!"
  21. 210 poke198,0:x=peek(203):ifx<>57then210
  22. 220 close4:goto100
  23.